UpTime Volume 1 #3/utv1n3s1.d64/paper sprites

Commodore BASIC | 2022-08-28 | 3KB | 81 lines

10 poke53265,11:poke53280,0:poke53281,0:poke53269,0:poke53248,140:poke53249,220
20 poke53250,172:poke53251,220:poke53252,204:poke53253,220:poke53287,1
30 poke53285,7:poke53286,4:poke2040,128:poke2041,129:poke2042,130
40 poke53288,1:poke53289,1:poke56576,151:poke53269,7:poke650,128
50 pt=2040:dimpg(2):pg(0)=128:pg(1)=129:pg(2)=130
60 print"[147][158][208]aper [211]prites[156] by [202]on [208]erregaux ([195])1987
72 [153]"(NULL)ublished by (NULL)oftdisk (NULL)ublishing, right$nc.
80 print"[159][201][206][211][212][210][213][195][212][201][207][206][211]:":print"[163][163][163][163][163][163][163][163][163][163][163][163][163]
90 [153]"clra) open(NULL)se sys + waitopen and sys - waitopen keys to select three
100 print"   sprites to print.
132 [153]"clrb) open(NULL)ress sys (NULL)(NULL)atnlenval waitopen to toggle multicolor":[153]"   mode.
134 print"[156]c) [159][208]ress [158] [204] [146][159] to load sprite file.
140 [153]"clrd) open(NULL)ress sys (NULL)val(NULL)(NULL)(NULL)(NULL) waitopen for sprite printout.
150 print"[156]   [208]ress [158] [198]8 [146][156] to return to the [213]p[212]ime
160 [153][163]12)"(NULL)able of lenontentsopen
170 printtab(13)"[176][192][192][192][192][192][192][192][192][192][192][192][192][174]":forx=1to3:printtab(13)"[221]            [221]":next
180 printtab(13)"[173][192][192][192][192][192][192][192][192][192][192][192][192][189]":gosub290:poke53265,27
190 poke198,0:wait198,1:getx$
200 ifx$="+"thengosub470:gosub290:goto190
210 ifx$="-"thengosub480:gosub290:goto190
260 ifx$=chr$(13)then330
262 ifx$="l"then600
270 ifx$="[140]"thenprint"[147]":poke56576,151:poke53269,0:poke44,8:poke2048,0:clr:sys32772
272 ifx$=" "andpeek(53276)=0thenpoke53276,7:goto190
274 ifx$=" "andpeek(53276)=7thenpoke53276,0
280 goto190
290 poke pt,pg(0):pokept+1,pg(1):pokept+2,pg(2)
300 if(peek(56576)and3)<>3thenpoke53265,27:return
310 print"[156][208][193][199][197]:[158]"pg(0)"[157]   ":printtab(5)pg(1)"[157]   "
320 printtab(5)pg(2)"[157]   ":return
330 open4,4,7:close4:ifst<>0then190
340 poke53265,11:poke53281,14:poke53280,14
350 open4,4:open6,4,6
352 print#6,chr$(21);
360 a(0)=64*pg(0):a(1)=64*pg(1):a(2)=64*pg(2)
370 poke56576,151:poke53269,0:fory=0to20:w=0
380 forx=0to2:z=peek(a(w)+x+y*3):gosub420
390 next:w=w+1:bt$=bt$+"    ":ifw<4then380
392 ifpeek(53276)=7thengosub490
394 ifpeek(53276)=0thenbt$=left$(bt$,80)
400 print#4,bt$:bt$="":next:forx=1to3:print#4,chr$(13):next
405 close6:close4:poke53281,0:poke53280,0
410 poke53269,7:poke53265,27:goto190
420 z$=""
430 fora=0to7:ifz/2=int(z/2)thenz$="."+z$:goto450
440 z$="[209]"+z$
450 z=int(z/2):next:bt$=bt$+z$
460 return
470 pg(0)=pg(0)+1and255:pg(1)=pg(1)+1and255:pg(2)=pg(2)+1and255:return
480 pg(0)=pg(0)-1and255:pg(1)=pg(1)-1and255:pg(2)=pg(2)-1and255:return
490 mc$="":form=1to80step2:xx$=mid$(bt$,m,2):ifxx$=".."thenzz$="..
500 [139]xx$[178]".(NULL)"[167]zz$[178]"spc(spc(
510 ifxx$="[209]."thenzz$="[214][214]
520 [139]xx$[178]"(NULL)(NULL)"[167]zz$[178]"  wait
530 ifxx$="  "thenzz$="  "
540 mc$=mc$+zz$:next:bt$=mc$:return
600 bk=peek(56576):poke56576,151:print"[147][156]([208]ress [158] _ [146][156] to exit)
602 [153]"ononononascile name: ";
610 z$[178]"":[151]198,0
620 [153]"clr waitcmd";:[129]x[178]1[164]55:[161]x$:[139]x$[179][177]""[167]640
630 [130]:[153]" cmd";:[129]x[178]1[164]55:[139]x$[178]""[167][130]:[137]620
640 [139]x$[178]"restore"[167]270
642 [139]x$[178]"_"[167][151]56576,bk:[137]800
650 [139]x$[178][199](13)[175][195](z$)[177]0[167][153]" ":[137]690
660 [139]x$[178][199](20)[175][195](z$)[177]0[167]z$[178][200](z$,[195](z$)[171]1):[153]"  cmdcmdcmd";:[137]620
670 [139]x$[179]" "[176]x$[177]"(NULL)"[167]620
675 [139] [198](x$)[177]141 [175] [198](x$)[179]192 [167]620
680 z$[178]z$[170]x$:[153]"open"x$;:[137]620
690 [159]15,8,15,"i0":[141]900:[159]2,8,2,"0:"[170]z$:[141]900
700 [160]2:[160]15:[137]57500
800 [139]bk[178]151[167]60
810 [153]"stopload":[141]290:[137]190
900 [132]15,a$,b$,c$,d$:[139][197](a$)[179]20[167][142]
910 [153]"loadsys?str$right$(NULL)(NULL) val(NULL)(NULL)(NULL)(NULL)":[153]"clr"a$" "b$" "c$" "d$
920 [153]"(NULL)ress sys (NULL)val(NULL)(NULL)(NULL)(NULL) waitclr to continue":[151]198,0
930 [161]x$:[139]x$[179][177][199](13)[167]930
940 [138]
57500 [151]780,1:[151]781,8:[151]782,0:[158]65466:[129]x[178]1[164][195](z$):[151]584[170]x,[198]([202](z$,x,1)):[130]:[151]780,[195](z$):[151]781,73:[151]782,2:[158]65469
57520 [151]780,0:[151]781,0:[151]782,32:[158]65493:[159]15,8,15:[141]900
57530 [138]